R Notebook

library(tidyverse)
library(caret)
library(lattice)

# Get barstool data off github
job_post <- read_csv("https://raw.githubusercontent.com/luizmalpele/StatsLearningProject/master/data/fake_job_postings.csv?token=ANQHB6TNXQAFKHFJBS6F35S6SNMZ4")

Warning in .Internal(eval(substitute(expr), envir, enclos)) :
  closing unused connection 4 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Warning in .Internal(eval(substitute(expr), envir, enclos)) :
  closing unused connection 3 (https://github.com/luizmalpele/StatsLearningProject/blob/master/data/fake_job_postings.csv)
Parsed with column specification:
cols(
  job_id = col_double(),
  title = col_character(),
  location = col_character(),
  department = col_character(),
  salary_range = col_character(),
  company_profile = col_character(),
  description = col_character(),
  requirements = col_character(),
  benefits = col_character(),
  telecommuting = col_double(),
  has_company_logo = col_double(),
  has_questions = col_double(),
  employment_type = col_character(),
  required_experience = col_character(),
  required_education = col_character(),
  industry = col_character(),
  `function` = col_character(),
  fraudulent = col_double()
)